Disclaimer:
- This is a personel project,
- I am not a employee of the state of Ohio.
- I am not employed in either the medical or data sceince fields.
Data Source: NY Times
#
# state_date <- oh_state %>% group_by(county,date) %>%
# summarise(Cases=sum(cases), Deaths = sum(deaths),
# DeathRate = Deaths/Cases)
Ohio Totals for Cases, Deaths by Date
gg1 <- buckeye %>% ggplot() +
geom_col(aes(x=date,y=daily_cases)) +
labs(title="Ohio Cases by Date",y="Daily Cases (log10)") + scale_y_log10()
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 1 rows containing missing values (position_stack).
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Removed 1 rows containing missing values (position_stack).
Ohio Accumulated Totals for Cases, Deaths by Date and County
buckeye %>% ggplot() +
geom_col(aes(x=date,y=Cases)) +
labs(title="Ohio Accumulated Cases by Date",x="Date",y="Accumulated Cases(log10)") +
scale_y_log10(labels = scales::comma) + geom_smooth(aes(x=date,y=Cases))
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

buckeye %>% ggplot() +
geom_col(aes(x=date,y=Deaths)) +
labs(title="Ohio Accumulated Deaths by Date",x="Date",y="Accumulated Cases(log10)") +
scale_y_log10(labels = scales::comma) + geom_smooth(aes(x=date,y=Deaths))
## Warning: Transformation introduced infinite values in continuous y-axis
## Warning: Transformation introduced infinite values in continuous y-axis
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## Warning: Removed 11 rows containing non-finite values (stat_smooth).
## Warning: Removed 11 rows containing missing values (geom_col).
